home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G07F / G07_OGAW.Dxr / 00043.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  1.7 KB  |  90 lines
  1. global g_no, jumplistkey
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   set the cursor of sprite 11 to mycursor
  6.   set the cursor of sprite 12 to mycursor
  7.   set the cursor of sprite 14 to mycursor
  8.   set the cursor of sprite 15 to mycursor
  9.   set the cursor of sprite 17 to mycursor
  10.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5"]
  11.   set volset to the soundLevel
  12.   if the soundEnabled = 0 then
  13.     set the soundEnabled to 1
  14.   end if
  15. end
  16.  
  17. on donext
  18.   if (g_no + 1) = 6 then
  19.     set g_no to 0
  20.   end if
  21.   go(getAt(jumplistkey, g_no + 1))
  22. end
  23.  
  24. on doback
  25.   if (g_no - 1) = 0 then
  26.     set g_no to 6
  27.   end if
  28.   go(getAt(jumplistkey, g_no - 1))
  29. end
  30.  
  31. on doexit
  32.   sound stop 1
  33.   go("M1", "@::JMACMENU")
  34. end
  35.  
  36. on crtopen
  37.   puppetSprite(6, 1)
  38.   repeat while the stillDown
  39.     set the memberNum of sprite 6 to 13
  40.     updateStage()
  41.   end repeat
  42.   set the memberNum of sprite 6 to 12
  43.   updateStage()
  44.   puppetSprite(6, 0)
  45. end
  46.  
  47. on crtclose
  48.   puppetSprite(7, 1)
  49.   repeat while the stillDown
  50.     set the memberNum of sprite 7 to 15
  51.     updateStage()
  52.   end repeat
  53.   set the memberNum of sprite 7 to 14
  54.   updateStage()
  55.   puppetSprite(7, 0)
  56. end
  57.  
  58. on crtback
  59.   puppetSprite(21, 1)
  60.   repeat while the stillDown
  61.     set the memberNum of sprite 21 to 29
  62.     updateStage()
  63.   end repeat
  64.   set the memberNum of sprite 21 to 28
  65.   updateStage()
  66.   puppetSprite(21, 0)
  67. end
  68.  
  69. on crtnext
  70.   puppetSprite(20, 1)
  71.   repeat while the stillDown
  72.     set the memberNum of sprite 20 to 27
  73.     updateStage()
  74.   end repeat
  75.   set the memberNum of sprite 20 to 26
  76.   updateStage()
  77.   puppetSprite(20, 0)
  78. end
  79.  
  80. on crtclose2
  81.   puppetSprite(22, 1)
  82.   repeat while the stillDown
  83.     set the memberNum of sprite 22 to 31
  84.     updateStage()
  85.   end repeat
  86.   set the memberNum of sprite 22 to 30
  87.   updateStage()
  88.   puppetSprite(22, 0)
  89. end
  90.